home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / CB129PWA.ZIP / CHATTER.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1994-01-23  |  6KB  |  381 lines
  1. ;------------------------------------------------------------------------------
  2. ;                                                   .ss.
  3. ;                                                   `²²'
  4. ;             .,sS$Ss,,s$  .,sS$$$Ss.  .,sS$Ss,,s$ .ss.  .sSs.
  5. ;           .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
  6. ;           $$$'   .$$$' $$$²Sçsµ²' .$$$'   .$$$'.$$$' .$$$'  `$$b.
  7. ;           $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$'    ;$$$
  8. ;           `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
  9. ;                                    .sS²°$$$²²°"'       d²°'
  10. ;                                  .$$²  .$$'
  11. ;                                  $$$.,d$$'
  12. ;                                  `²S$$S²'
  13. ;------------------------------------------------------------------------------
  14. ; P.P.L.X. 2.OO                          (C)1996 - Lone Runner / AEGiS CoRP'96 
  15. ;------------------------------------------------------------------------------
  16. ; PPE 2.OO (plain) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     Integer  INTEGER001
  20.     Integer  INTEGER002
  21.     Integer  INTEGER003
  22.     Integer  INTEGER004
  23.     Integer  INTEGER005
  24.     Integer  INTEGER006
  25.     Integer  INTEGER007
  26.     Integer  INTEGER008
  27.     Integer  INTEGER009
  28.     String   STRING001
  29.     String   STRING002
  30.     String   STRING003
  31.     String   STRING004
  32.     String   STRING005
  33.  
  34. ;------------------------------------------------------------------------------
  35.  
  36.     StartDisp 1
  37.     KbdChkOff
  38.     RdUNet PcbNode()
  39.     WrUNet PcbNode(), "C", UN_Name(), UN_City(), "", ""
  40.     SaveScrn
  41.     Cls
  42.     AnsiPos 1, 12
  43.     Print "@X78  (@X71 REMOTE@X78)                    @X70«@X78<@X7F @X7CC@X74a@X71l@X79c@X7Cu@X74l@X71u@X79s @X7F@X78>@X70»@X78                     (@X74 SYSOP@X78)  @X09"
  44.     Gosub LABEL006
  45.     INTEGER009 = 0
  46.     STRING001 = ""
  47.     INTEGER001 = 1
  48.     INTEGER002 = 13
  49.     STRING002 = ""
  50.     STRING003 = ""
  51.     INTEGER003 = 0
  52.     INTEGER005 = 0
  53.     While (STRING001 <> Chr(27)) Do
  54.         If (INTEGER009 == 1) Then
  55.             For INTEGER004 = 1 To 10
  56.                 AnsiPos 1, INTEGER004 + 13
  57.                 ClrEol
  58.             Next
  59.             INTEGER009 = 2
  60.             AnsiPos 1, 13
  61.             Print "@X1FSYSOP has requested that you listen for a moment...@X09"
  62.             INTEGER002 = 13
  63.             STRING003 = 0
  64.             INTEGER005 = 0
  65.         Endif
  66.         STRING001 = MInkey()
  67.         If ((STRING001 <> "") && (INTEGER009 <> 2)) Then
  68.             If (STRING001 == "`") Then
  69.                 INTEGER002 = 13
  70.                 STRING003 = ""
  71.                 For INTEGER006 = 13 To 22
  72.                     AnsiPos 1, INTEGER006
  73.                     ClrEol
  74.                 Next
  75.                 AnsiPos 1, 13
  76.                 INTEGER005 = 0
  77.                 STRING001 = ""
  78.             Endif
  79.             If (STRING001 == Chr(13)) Then
  80.                 STRING003 = ""
  81.                 Inc INTEGER002
  82.                 AnsiPos 1, INTEGER002
  83.                 If ((INTEGER002 == 15) && (INTEGER005 == 1)) Then
  84.                     INTEGER005 = 0
  85.                     For INTEGER004 = 1 To 8
  86.                         AnsiPos 1, INTEGER004 + 15
  87.                         ClrEol
  88.                     Next
  89.                     AnsiPos Len(STRING003), INTEGER002
  90.                 Endif
  91.             Endif
  92.             If ((Len(STRING003) == 80) && (STRING001 <> Chr(8))) Then
  93.                 INTEGER008 = 0
  94.                 If (((STRING001 <> Chr(8)) && (STRING001 <> Chr(13))) && (STRING001 <> Chr(32))) Then
  95.                     For INTEGER006 = 0 To 10
  96.                         INTEGER007 = 79 - INTEGER006
  97.                         STRING005 = Mid(STRING003, INTEGER007, 1)
  98.                         If ((STRING005 == " ") && (INTEGER008 == 0)) INTEGER008 = INTEGER007
  99.                     Next
  100.                     INTEGER007 = INTEGER002
  101.                 Endif
  102.                 Inc INTEGER002
  103.                 If (INTEGER008 <> 0) Then
  104.                     STRING003 = Right(STRING003, 80 - INTEGER008)
  105.                     AnsiPos INTEGER008, INTEGER007
  106.                     ClrEol
  107.                     Goto LABEL001
  108.                 Endif
  109.                 STRING003 = ""
  110.                 :LABEL001
  111.                 If (INTEGER007 == 22) Then
  112.                     AnsiPos 1, 13
  113.                     Goto LABEL002
  114.                 Endif
  115.                 AnsiPos 1, INTEGER002
  116.                 :LABEL002
  117.                 Print "@X09", STRING003
  118.                 If ((INTEGER002 == 15) && (INTEGER005 == 1)) Then
  119.                     INTEGER005 = 0
  120.                     For INTEGER004 = 1 To 8
  121.                         AnsiPos 1, INTEGER004 + 15
  122.                         ClrEol
  123.                     Next
  124.                     AnsiPos Len(STRING003), INTEGER002
  125.                 Endif
  126.             Endif
  127.             If (INTEGER002 == 23) Then
  128.                 INTEGER002 = 13
  129.                 AnsiPos Len(STRING003) + 1, 13
  130.                 ClrEol
  131.                 AnsiPos 1, 14
  132.                 ClrEol
  133.                 AnsiPos 1, 15
  134.                 ClrEol
  135.                 AnsiPos 1, 13
  136.                 INTEGER005 = 1
  137.             Endif
  138.             If (STRING001 == Chr(8)) Then
  139.                 STRING004 = Left(STRING003, Len(STRING003) - 1)
  140.                 STRING003 = STRING004
  141.                 AnsiPos Len(STRING003) + 1, INTEGER002
  142.                 ClrEol
  143.             Endif
  144.             If ((STRING001 <> Chr(13)) && (STRING001 <> Chr(8))) Then
  145.                 STRING004 = STRING003 + STRING001
  146.                 STRING003 = STRING004
  147.                 AnsiPos Len(STRING003), INTEGER002
  148.                 Print "@X09", STRING001
  149.             Endif
  150.         Endif
  151.         INTEGER008 = 0
  152.         STRING001 = KInkey()
  153.         If (STRING001 <> "") Then
  154.             If (STRING001 == "`") Then
  155.                 Gosub LABEL005
  156.                 Continue
  157.             Endif
  158.             If (STRING001 == Chr(13)) Then
  159.                 STRING002 = ""
  160.                 Inc INTEGER001
  161.                 AnsiPos 1, INTEGER001
  162.                 If ((INTEGER001 == 3) && (INTEGER003 == 1)) Then
  163.                     INTEGER003 = 0
  164.                     For INTEGER004 = 1 To 8
  165.                         AnsiPos 1, INTEGER004 + 3
  166.                         ClrEol
  167.                     Next
  168.                     AnsiPos Len(STRING002), INTEGER001
  169.                 Endif
  170.             Endif
  171.             If ((Len(STRING002) == 80) && (STRING001 <> Chr(8))) Then
  172.                 INTEGER008 = 0
  173.                 If (((STRING001 <> Chr(8)) && (STRING001 <> Chr(13))) && (STRING001 <> Chr(32))) Then
  174.                     For INTEGER006 = 0 To 10
  175.                         INTEGER007 = 79 - INTEGER006
  176.                         STRING005 = Mid(STRING002, INTEGER007, 1)
  177.                         If ((STRING005 == " ") && (INTEGER008 == 0)) INTEGER008 = INTEGER007
  178.                     Next
  179.                     INTEGER007 = INTEGER001
  180.                 Endif
  181.                 Inc INTEGER001
  182.                 If (INTEGER008 <> 0) Then
  183.                     STRING002 = Right(STRING002, 80 - INTEGER008)
  184.                     AnsiPos INTEGER008, INTEGER007
  185.                     ClrEol
  186.                     Goto LABEL003
  187.                 Endif
  188.                 STRING002 = ""
  189.                 :LABEL003
  190.                 If (INTEGER007 == 11) Then
  191.                     AnsiPos 1, 1
  192.                     Goto LABEL004
  193.                 Endif
  194.                 AnsiPos 1, INTEGER001
  195.                 :LABEL004
  196.                 Print "@X0C", STRING002
  197.                 If ((INTEGER001 == 3) && (INTEGER003 == 1)) Then
  198.                     INTEGER003 = 0
  199.                     For INTEGER004 = 1 To 8
  200.                         AnsiPos 1, INTEGER004 + 3
  201.                         ClrEol
  202.                     Next
  203.                     AnsiPos Len(STRING002), INTEGER001
  204.                 Endif
  205.             Endif
  206.             If (INTEGER001 == 12) Then
  207.                 INTEGER001 = 1
  208.                 AnsiPos Len(STRING002) + 1, 1
  209.                 ClrEol
  210.                 AnsiPos 1, 2
  211.                 ClrEol
  212.                 AnsiPos 1, 3
  213.                 ClrEol
  214.                 AnsiPos 1, 1
  215.                 INTEGER003 = 1
  216.             Endif
  217.             If (STRING001 == Chr(8)) Then
  218.                 STRING004 = Left(STRING002, Len(STRING002) - 1)
  219.                 STRING002 = STRING004
  220.                 AnsiPos Len(STRING002) + 1, INTEGER001
  221.                 ClrEol
  222.             Endif
  223.             If ((STRING001 <> Chr(13)) && (STRING001 <> Chr(8))) Then
  224.                 STRING004 = STRING002 + STRING001
  225.                 STRING002 = STRING004
  226.                 AnsiPos Len(STRING002), INTEGER001
  227.                 Print "@X0C", STRING001
  228.             Endif
  229.         Endif
  230.     EndWhile
  231.     StartDisp 0
  232.     RestScrn
  233.     KbdStuff Chr(27)
  234.     End
  235.     :LABEL005
  236.     AnsiPos 1, 23
  237.     SaveScrn
  238.     AnsiPos 1, 12
  239.     SPrint "[`]=CLRSCR [1]="
  240.     If (INTEGER009 == 0) SPrint "turns off remote"
  241.     If (INTEGER009 == 2) SPrint "turns  on remote"
  242.     SPrint " [ESC]=exits function menu"
  243.     ClrEol
  244.     STRING001 = ""
  245.     While (STRING001 <> Chr(27)) Do
  246.         STRING001 = KInkey()
  247.         If (STRING001 <> "") Then
  248.             If (STRING001 == "`") Then
  249.                 RestScrn
  250.                 INTEGER001 = 1
  251.                 STRING002 = ""
  252.                 For INTEGER006 = 1 To 11
  253.                     AnsiPos 1, INTEGER006
  254.                     ClrEol
  255.                 Next
  256.                 AnsiPos 1, 1
  257.                 INTEGER003 = 0
  258.                 STRING001 = ""
  259.                 Return
  260.             Endif
  261.             If ((STRING001 == "1") && (INTEGER009 == 0)) Then
  262.                 RestScrn
  263.                 INTEGER009 = 1
  264.                 STRING001 = ""
  265.                 Return
  266.             Endif
  267.             If ((STRING001 == "1") && (INTEGER009 == 2)) Then
  268.                 RestScrn
  269.                 INTEGER009 = 0
  270.                 STRING001 = ""
  271.                 AnsiPos 1, 13
  272.                 ClrEol
  273.                 Print "@X1FPlease continue: @X09"
  274.                 AnsiPos 1, 3
  275.                 INTEGER002 = 15
  276.                 STRING003 = ""
  277.                 Return
  278.             Endif
  279.         Endif
  280.     EndWhile
  281.     RestScrn
  282.     STRING001 = ""
  283.     Return
  284.     :LABEL006
  285.     SaveScrn
  286.     AnsiPos 22, 4
  287.     Print "@X1B┌─────────────────────────────────┐"
  288.     AnsiPos 22, 5
  289.     Print "│                                 │"
  290.     AnsiPos 22, 6
  291.     Print "│      @X1ECHATTER BOX  V .1.29ß@X1B      │"
  292.     AnsiPos 22, 7
  293.     Print "│                                 │"
  294.     AnsiPos 22, 8
  295.     Print "│               @X1Cfrom@X1B              │"
  296.     AnsiPos 22, 9
  297.     Print "│       @X1A⌠     @X1CCalculus@X1B     @X1A⌠@X1B      │"
  298.     AnsiPos 22, 10
  299.     Print "│       @X1A│                  @X1A│@X1B      │"
  300.     AnsiPos 22, 11
  301.     Print "│       @X1A│   @X1FDream WEaver@X1B   @X1A│@X1B      │"
  302.     AnsiPos 22, 12
  303.     Print "│       @X1A│   @X1F& Spider Man@X1B   @X1A│@X1B      │"
  304.     AnsiPos 22, 13
  305.     Print "│       @X1A⌡                  @X1A⌡@X1B      │"
  306.     AnsiPos 22, 14
  307.     Print "└─────────────────────────────────┘@X09"
  308.     INTEGER006 = 0
  309.     While ((INTEGER006 <> 5000) && (KInkey() == "")) Do
  310.         Inc INTEGER006
  311.     EndWhile
  312.     RestScrn
  313.     Return
  314.  
  315. ;------------------------------------------------------------------------------
  316. ;
  317. ; Usage report (before postprocessing)
  318. ;
  319. ; ■ Statements used :
  320. ;
  321. ;    1       End
  322. ;    1       Cls
  323. ;    19      ClrEol
  324. ;    58      Goto 
  325. ;    83      Let 
  326. ;    18      Print 
  327. ;    45      If 
  328. ;    2       StartDisp 
  329. ;    2       Gosub 
  330. ;    5       Return
  331. ;    5       Inc 
  332. ;    1       KbdStuff 
  333. ;    1       KbdChkOff
  334. ;    1       RdUNet 
  335. ;    1       WrUNet 
  336. ;    50      AnsiPos 
  337. ;    3       SaveScrn
  338. ;    6       RestScrn
  339. ;    4       SPrint 
  340. ;
  341. ;
  342. ; ■ Functions used :
  343. ;
  344. ;    20      +
  345. ;    6       -
  346. ;    33      ==
  347. ;    21      <>
  348. ;    9       <
  349. ;    9       <=
  350. ;    18      >=
  351. ;    41      !
  352. ;    36      &&
  353. ;    9       ||
  354. ;    14      Len(
  355. ;    2       Mid()
  356. ;    2       Left()
  357. ;    2       Right()
  358. ;    19      Chr()
  359. ;    2       PcbNode()
  360. ;    1       UN_Name()
  361. ;    1       UN_City()
  362. ;    3       KInkey()
  363. ;    1       MInkey()
  364. ;
  365. ;------------------------------------------------------------------------------
  366. ;
  367. ; Analysis flags : No flag
  368. ;
  369. ;------------------------------------------------------------------------------
  370. ;
  371. ; Postprocessing report
  372. ;
  373. ;    9       For/Next
  374. ;    3       While/EndWhile
  375. ;    29      If/Then or If/Then/Else
  376. ;    0       Select Case
  377. ;
  378. ;------------------------------------------------------------------------------
  379. ;                 AEGiS Corp - Break the routines, code against the machines!
  380. ;------------------------------------------------------------------------------
  381.